home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ WinXP Thumbnail 1.xpl < prev    next >
Text File  |  2002-11-01  |  2KB  |  61 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="2"
  3. "COUNT"="2"
  4. "UIPATH 1"="Appearance\Explorer\Settings"
  5. "UIPATH 2"="Appearance\Files&Folders\Folders"
  6. "NAME"="Thumbnails Options"
  7. "OSVERSION"="0000011"
  8. "VERSION"="1.02"
  9. "LANGUAGE"="VBScript"
  10. "TEXT 1"="Size (px)"
  11. "TEXT 2"="Quality (%)"
  12. "DESCRIPTION 1"="Windows automatically creates thumbnails in all folders you open inside Explorer."
  13. "DESCRIPTION 2"="If you click on an image inside Explorer, Windows displays the thumbnail on the left side of the Explorer."
  14. "DESCRIPTION 3"="These settings can be changed in which size and quality these thubnails should be created."
  15. "DESCRIPTION 4"="The first setting controls the size of the image in pixels. If you want to have bigger thumbnails, simply increase this value (default: 96)."
  16. "DESCRIPTION 5"="The second setting controls the quality of the image in percent. 100 is the best quality you can get, but it also increases the file size of the thumbnail."
  17. "DESCRIPTION 6"="To reset both values to their default values, simply clear the fields."
  18. "AUTHOR"="Xteq Systems"
  19. "CONTACTURL"="http://www.xteq.com"
  20. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  21. "COMMENT 1"="Found at WinTweaks: http://www.winguides.com/registry/display.php/1066/"
  22.  
  23.  
  24.  
  25. sP="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\"
  26. sV1="ThumbnailSize" 
  27. sV2="ThumbnailQuality"
  28.  
  29. Sub Plugin_Initialize 
  30.  s=RegReadValue(sp & sv1)
  31.  SetUIElement 1,s
  32.  
  33.  s=RegReadValue(sp & sv2)
  34.  SetUIElement 2,s
  35. End Sub
  36.  
  37. Sub Plugin_CheckData(ElementIndex)
  38. End Sub
  39.  
  40. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  41.  i=GetUIElement(1)
  42.  if len(i)>0 then 
  43.     Call RegWriteValue(sp & sv1,i,2)
  44.  else
  45.     if RegValueExists(sp & sv1) then RegDeleteValue(sp & sv1)
  46.  end if
  47.  
  48.  i=GetUIElement(2)
  49.  if len(i)>0 then 
  50.     Call RegWriteValue(sp & sv2,i,2)
  51.  else
  52.     if RegValueExists(sp & sv2) then RegDeleteValue(sp & sv2)
  53.  end if
  54. End Sub
  55.  
  56. Sub Plugin_Terminate 
  57. End Sub
  58.  
  59.  
  60.  
  61.